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I7A25 --- FRU ISOLATION MAP P/N=8327668 EC=375222 PAGE 01 I7A25 --- FRU ISOLATION MAP P/N=8327668 EC=375222 PAGE O1A 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
3 COPY LOG7A25 **x MAP EC HISTORY ** 002500 30BC 198 DC A (ENTPT) POINT TO MAP ENTRY POINT TABLE 
TSS LS CSSSC&SSSL OSC SS SS Se SCC CS SCOSSCCSCLSS CSS SCSOC CS C$CCCC SCS OCC CSCS TS ST ST Lee ee es 199 7 OK ROO i i RoR IG IIR a aa aka ka ak ak kak aie koa akc ae ak akc akc aie ak 
5 x * 200 7 KR OR III ICI OIC UK ROI IO IOI IO OK IO IR RR gai atc aie ak ak af fc ae akc akc ake afc ak 
6 * % PREREQUISITES 3 OK * 201 ** 2k 
7 * * 202 ** THE FOLLOWING TABLES ARE USED BY THE MDI SUPERVISOR Sooo ee 
8 * NONE * 203 ** TO LOCATE THE CORRECT RULE TO Se one TO OBTAIN THE PROPER * 
9 * * 204 ** PARAMETERS TO PASS TO THE TU! AND T6 PASS TO THE OPERATOR * 
OME Tete t SL SSS SSLI SS SSCS SCCSS SSCS SSL SSS OSC CSS SCS COSC SSCS CSCC SS eS eS SSS ee es 205 ** THE INDICATED MESSAGE (S) . oe ARE FOUR TABLES USED FOR THIS *K 
11 * * 206 ** PURPOSE THEY ARE: Ok 
12 * HK NODIFICATIONS % AK * 207 ** a 2K 
13 * * 208 ** STEP AND RULE ADDRESS TABLE « 
14 * CHANGES MADE TO CORRECT ERRORS FOUND WHILE IN TEST * 209 ** THIS TABLE GIVES THE ADDRESS OF THE RULE TO INVOKE AND * 
15 * * 210 ** THE ASSOCIATED STEP DECIMAL STEP NUMBER OF THAT RULE. eK 
16 OR ROI I IK KOEI III ICICI II IOI KR ICI RII Ka kak ak afaik ak ke fe ak oe a ak af of akc af 211 ** ENTRIES ARE AS FOLLOWES eK 
17 * * 212 ** A AN ADDRESS OF THE RULE DC START AREA * 
18 * eK Kk REA'S INCORPORATED KK * 213 ** B THE STEP NUMBER IN DECIMAL * 
19 * * 214 ** Cc AN EQUATE FOR THE STEP NUMBER eK 
20 * NONE * 215 ** * 
21 * * 216 ** RULE INFORMATION TABLE a 
IPM TESTE LESS SSS CSCS SS SSSSSCSSSS SSS SSOSSCSSCS SS SSSSSSSCSCCSCSCCSCL CCSCoS CS SSC CTE SSeS ST Ts 217 ** THIS TABLE CONTAINES THE REQUIRED INFORMATION TO EXECUTE ek 
23 * * 218 ** THE APPROPRIATE RULE UNDER MDI. EACH RULE HAS ITS OWN * 
24 * OK SPECIAL INSTRUCTIONS 3K * 219 ** UNIQUELY DEFINED AREA INDICATED BELOW. END OF TABLE IS * * 
25 * * 220 ** INDICATED WITH A X*'OO00" FOR THE RULE EQUATE. * 
26 * NONE * 221 ** eK 
27 * * 222 ** SQUES OK 
PASM TS SESS SSS SSSSS OSS SSS SSCS SSCS SSS SCSCoSSOCSCSSSSCSCSSCCCSCLCSCLSSCSCSSCSC£CC SSS Se SS 223 ** A) RULE EQUATE xX'*0100!8 * OK 
29 * * 224 ** 3} ADDRESS OF THE YES LEG RULE * 
30 * AE 2K 3 E. C. HISTORY KK * 225 ** *K 
31 * * 226 ** S$FIXT ok 
32 * DATE 17AUG78 DATE 10JAN79 DATE DATE * 227 ** A) RULE EQUATE X'01018 * 
a : E.C. 755391 E.C. 375222 Be Cs Bs. : aoe ies B) ADDRESS OF MESSAGE TO PRINT * 
*K 
CLE LTESLL LSS SS SSL S SSS SCSSSC SCS SS SS SSC SSS CSS SCS SS CSCS CSCCCC SC CSS CS TOL TS Ses 2 2 2 230 ** $STOP 2k 
002500 37 I7A25 START X*'2500! START ADDRESS OF ALL 'It TYPE PROG 231 ** A) RULE EQUATE X'0102! * x 
000100 38 @QUES EQU x'*0100°% EQUATED VALUE FOR MDI STATEMENT 232 ** ADDRESS OF MESSAGE * 
000101 39 OFIXT EQU x*01018 EQUATED VALUE FOR MDI STATEMENT 233 ** *x& 
000102 40 @STOP EQU X¥'0102° EQUATED VALUE FOR MDI STATEMENT 234 ** $GOTO a 
000200 41 @GOTO EQU X'*0200!5 EQUATED VALUE FOR MDI STATEMENT 235 ** A) RULE EQUATE X'0200°! aK 
000201 42 @CALL EQU X'*O02018 EQUATED VALUE FOR MDI STATEMENT 236 ** B) ADDRESS OF MESSAGE ok 
000300 43 @INPT EQU X¥'0300' EQUATED VALUE FOR MDI STATEMENT 237 ** C) NAME OF MAP TO GO TO aK 
000400 Gh @QUXX EQU X'O400! EQUATED VALUE FOR MDI STATEMENT 238 ** D) ENTRY POINT WITHIN GO TO MAP TO USE * 
000500 45 @aTUXX EQU X'0500! EQUATED VALUE FOR MDI STATEMENT 239 ** E) INDICATOR FOR EXTERNAL OR INTERNAL REFERENCE AK 
000600 46 ANVLD EQU X*OQ600' EQUATED VALUE FOR MDI STATEMENT 241 ** 3 
000000 U7 E EQU x'oo000! EQUATE FOR EQUAL 242 ** SCALL KK 
000004 48 N EQU X'QO0O04? EQUATE FOR NOT EQUAL 243 ** A) RULE EQUATE xX'0201 *K 
000008 49 HI EQU xX*'0o00o08! EQUATE FOR HIGH 24HU4Y ** B ADDRESS OF MESSAGE we 2 
Q00000C 50 NH EQU X*OOO0C! EQUATE FOR NOT HIGH 245 ** C) NAME OF MAP TO CALL ae 
000010 51 LO EQU X¥*0010° EQUATE FOR LOW 246 ** D) ENTRY POINT WITHIN CALLED MAP TO USE * 
000014 52 NL EQU X*'O0014! EQUATE FOR NOT LOW 247 ** E) INDICATOR FOR EXTERNAL OR INTERNAL REFERENCE a 
000010 53° LT EQU Xx'0010! EQUATE FOR LESS THAN 248 ** ak 
00000C 54 LE EQU X'OQOOC! EQUATE FOR LESS THAN OR EQUAL TO 249 ** SINPT * 
000008 55 GT EQU X'0008! EQUATE FOR GREATER THAN 250 ** A) RULE EQUATE X'0300! * 
000014 56 GE EQU x'ood! EQUATE FOR GREATER THAN OR EQUAL TO 251 ** B) INPUT TYPE (EBCDIC OR HEX) a 
000200 57 ON EQU X'Q0200! EQUATE FOR ON 252 ** C) ADDRESS OF YES LEG RULE a 
000202 58 OF EQU X¥'0202' EQUATE FOR OFF 253 ** D) DESTINATION Sun OR EE OF INPUT DATA a 
000204 59 MX EQU X'*0204!8 EQUATE FOP MIXED 254 ** E) LENGTH OF INPUT DA ee 
000000 60 EBC EQU X'OQO000! EQUATE FOR EBCDIC DATA TRANSFER 255 ** F) LOWER LIMIT OF coop” DATA * 
000001 61 HEX EQU X'O0001' EQUATE FOR HEX DATA TRANSFER 256 ** G) HIGHER LIMIT OF GOOD DATA a 
000001 62 XTRNL EQU X'OQOOOT! EQUATE FOR EXTERNAL REFERENCE 257 ** Ok 
000000 63 INTRNL EQU X'O0008 EQUATE FOR INTERNAL REFERENCE 258 ** $QUXX 2 
000000 64 PARM EQU X*'OQ000* EQUATE INDICATING PARAMETER 259 ** A) RULE EQUATE xX'0O4OO! cS 
000001 65 DA EQU X'OOOT1! EQUATE FOR DEVICE ADDRESS 260 ** B) ADDRESS OF YES LEG RULE 2 
000002 66 EQU X'0002° EQUATE FOR UNIT ADDRESS 261 ** C) TU RRANCH TO ADDRESS ire * x 
000000 67 DUMMY EQU X*OO00! DUMMY enoEte 262 ** D) TU BRANCH TO ADDRESS (SECOND Y) * & 
001800 69 PID OU *-X'QDOO! ADDRESS OF MDI HEADER 263 ** E) LENGTH OF PARAMETER I * 
301806 7) STEPHUM EOU  pIpextOuoc® ADDRESS OF DECIMAL STEP NUMBER see G} STORE ADDRESS OR ae 
+ *x G) STORE ADDRESS FOR FIRST 8 WORDS OF PARAMETER *x 
001805 72 OPWD1 EQU PID+xX'OOOE! ADDRESS OF OPTION WORD ONE 266 ** ok 
001810 73 OPWD2 EQU PID+xX'0010'! ADDRESS OF OPTION WORD TWO 267 ** STUXX * * 
001818 74 TUSTATUS EQU PID+X'0018! ADDRESS OF TU STATUS WORD 268 ** A) RULE EQUATE xX'0500! * 
OO0181A 75 TUWORK EQU PID+X'OO1A* ADDRESS OF TU WORK AREA 269 ** B) ADDRESS OF YES LEG RULE * 
00189A 76 TUPARM1 EQU PID+X'OO9A'® ADDRESS OF PARM 1 POINTER 270 ** C) TU BRANCH TO ADDRESS eK 
00189C 77 TUPARM2 EQU PID+X'OO9SC'! ADDRESS OF PARM 2 POINTER 271 ** D) TYPE OF COMPARE TO MAKE ON RESULTS ** 
00189E 78 TUPARM3 EQU PID+X'OO9E! ADDRESS OF PARM 3 POINTER 272 ** E) LENGTH OF COMPARED RESULTS ek 
OO018A0 79 TUPARM4 EQU PID+X'OOAO! ADDRESS OF PARM 4 POINTER 273 ** F) MASK FIELD FOR COMPARE * 
0018A2 80 TUPARM5 EQU PID+X'OOA2'! ADDRESS OF PARM 5 POINTER 274 ** G) LENGTH OF PARAMETER IN BYTES ae ok 
OO1T8A4 81 TUPARM6 EQU PID+X'OOA4! ADDRESS OF PARM 6 POINTER 275 ** H) PARAMETER TO PASS TO THE TU * & 
0018A6 82 TUPARM7 EQU PID+X'OOA6! ADDRESS OF PARM 7 POINTER 276 ** I) STORE ADDRESS FOR FIRST 8 WORDS OF PARAMETER Se 
0018A8 83 TUPARM8 EQU PID+X'QOA8! ADDRESS OF PARM 8 POINTER 277 ** OK 
OO18AA 84 TUPARM9Y EQU PID+X'OOAA* ADDRESS OF PARM 9 POINTER 278 ** SNVLD a 2 
0018AC 85 TUPARM10 EQU PID+X'QOAC'! ADDRESS OF PARM 10 POINTER 279 ** A) RULE EQUATE X*'0600! ** 
OO18AE 86 TUPARM11 EQU PID+X'QOAE!® ADDRESS OF PARM 11 POINTER 281 ** es 
0018B0 87 TUPARM12 EQU PID+X'OORO!? ADDRESS OF PARM 12 POINTER 282 ** ENTRY POINT TABLE * 
0018B2 88 TUPARM13 EQU PID+X'OOB2! ADDRESS OF PARM 13 POINTER 283 ** THIS TABLE CONTAINS THE ENTRY POINTS WITHIN THE MAP THAT * 
001884 89 TUPARM14 EQU PID+X'OOB4? ADDRESS OF PARM 14 POINTER 284 ** THE MAP CAN BE ENTERED FROM THESE ENTRY POINTS ARE * 
0018B6 90 TUPARM15 EQU PID+X'OOB6! ADDRESS OF PARM 15 POINTER 285 ** REFERENCED BY NAME AND ADDRESS. ENTRIES ARE AS FOLLOWES: ** 
0018B8 91 TUPARM16 EQU PID+X'QOB8! ADDRESS OF PARM 16 POINTER 286 ** * 
OO18BA 92 TUMSGWTR EQU PID+X'OOBA® ADDRESS OF -> TO COMMON MSG WRITER 287 ** A) NAME OF ENTRY POINT * 
OO18BE 93 TUUA EQU PID+X*'OOBE! ADDRESS OF UNIT ADDRESS IN EBC 288 ** ADDRESS OF ENTRY POINT RULE TABLE * x 
0018C0 94 TUDA EQU PID+x'O0OCO? ADDRESS OF DEVICE ADDRESS IN EBC 289 ** * kK 
0018C2 95 TUBUFF EQU PID+X!00C2'* ADDRESS OF LAST USED WORD IN MAP 290 ** THE ENTRY POINT TABLE END IS INDICATED BY A x'0000! kK 
0018C4 96 TULAST EQU PID+x*'OQOC4? ADDRESS OF LAST ADDRESSABLE WORD 291 ** ** 
0018C6 97 TURESULN EQU PID+X'OOC6! ADDRESS OF LENGTH OF TU RESULTS 292 ** MESSAGE TABLE * * 
0018C8 98 TURESUL EQU PID+X'QOC8! ADDRESS OF TU RESULTS FIELD 293 ** THIS TABLE CONTAINES THE MESSAGE PASSED TO THE Se ae ** 
OO018FC 99 MAPNAME EQU PID+xX' OOFC® ADDRESS OF MAP NAME FIELD IN HEX 294 ** VIA THE MDI SUPERVISOR. THE TABLE IS AS FOLLOWES * 
001948 100 TUINPT EQU PID+X'0O148!8 ADDRESS OF $INPT DATA 295 ** 2K aK 
00196E 101 PARMARA EQU PID+X'O16E! ADDRESS OF $INPT INPUT AREA 296 ** A) EQUATE FOR START OF MESSAGE BLOCK * x 
0019B8 102 @DCADD1 EQU PID+X'O1B8? MDI POINTER 297 ** B) NUMBER OF LINES OF MESSAGE * x 
OO19BA 103 @DCADD2 EQU PID+X'O1BA® MDI POINTER 298 ** C) LENGTH OF FOLLOWING LINE aK 
Q019C4 104 SUPSTAT EQU PID+xX*O1C4! ADDRESS OF MDI STATUS 299 ** D) FIRST LINE OF MESSAGE * * 
0019D0 105 DEVADD EQU PID+X'O1D0! ADDRESS OF DEVICE ADDRESS TABLE O 300 ** E) LENGTH OF FOLLOWING LINE ** 
QOO19DA 106 DEVADD1 EQU PIDtX'O1DA! ADDRESS OF DEVICE ADDRESS TABLE 1 301 ** F) SECOND LINE OF MESSAGE Ok 
O019E4 107 DEVADD2 EQU PID+X'O1E4! ADDRESS OF DEVICE ADDRESS TABLE 2 302 ** G TC. * 
OO19EE 108 DEVADD3 EQU PID+X*O1EE? ADDRESS OF DEVICE ADDRESS TABLE 3 303 ** * 
0019F8 109 DEVADDY EQU PID+tx'O1F8!? ADDRESS OF DEVICE ADDRESS TABLE 4 SOQ 2 OR RIO RIOR KIKI IOI IO IO IO IIR Ik kok i tok kak iotag kaki ako ak 
OO01A02 110 DEVADDS £EQU PID+X'0202'° ADDRESS OF DEVICE ADDRESS TABLE 5 305 9 ROR oko oI IO IO IO OR IO IOI IOIOIOROR IOI IER RRR IOI IO ROK agai ak 
OO1A0C 111 DEVADD6 EQU PID+X*0O20C! ADDRESS IF DEVICE ADDRESS TABLE 6 
001A16 ie DEVADD7 E Da a ADDRESS OF DEVICE ADDRESS TABLE 7 
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ae =832' = 37522: AGE 190A 
I7A25 --- FRU ISOLATION MAP P/N=8327668 FC=375222 PAGE 10 I7A25 FRU ISOLATION MAP BANDE SST OOS: - BCI ST 22 22 
COPYRIGHT IBM CORP 19 
cnean- OBVECe Tees Sie SOURCE STAG eN ENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT | OP basen 
*-* CS STATUS WD RE CN 
0030F6 D4C1D7FIC1F7F6C6 DC  CLOOO8'MAPTAT76F! aan aanae aeo coat e ne ‘ae CS STATUS WD 4! ERROR STATUS WD 1 
OO30FE - F00033 EQU* 003184 0000 22514+CSTL6 DC A (k-* CS STATUS WD 5, ERROR STATUS WD 2 
O0030FE 0001 D AL2 (9001) 003146 0000 2252+CSTL7 DC A e—* CS STATUS WD 6, LAST DCR ADDRESS 
003100 OO0A DC A (0 10) : 0031A8 0000 22534CSTL8 DC A (*-* CS STATUS WD 7, PREVIOUS HD/CYL 
003102 D&C1ID7F7IC1F7FO60C DC CLO010"MAP7A70-C 0O31AA 0000 2254U4+CSTLO DC A (*— * CS STATUS WD 8, CURRENT HD/CYL 
00310C FOOOS2 EQU * 0031AC 0000 2255+CST10 DC A (*—* CS STATUS WD 9, FPLAG/SECTOR 
00310C 0001 DC Rreaaay Sf 0031AE 0000 22564CST11 DC hk CS STATUS WD 16, HEAD/CYLINDER 
00310E OOOA DC A (0010) 0031B0 0000 3257+CST12 DC A (k-* CS STATUS WD 11, DIAG BYTES 1, 2 
NOt. ee “O0ne. “con So 0031B2 0000 2258+CST13 DC A (#-* CS STATUS WD 12, AND 3 # WRAP BYTE 
2259+% 
00311A 0001 D AL2 (0001) 2260+$SUBN DC A (*-* LAST SUBROUTINE ADDRESS USED 
Cgsiic 0008 ne n (0008) ' 003186 90000000 2261+$DATA DC 2a fens OPTIONAL DATA 
00311E D4CIDIFICIF7F6D6 DC CLOOO8"MAP7A760 0031BA 0021 2262+$INTL DC xfoo21' INTERRUPT LEVEL REQUESTED 
003145¢ 0001 pope gee es 0001) 0031BC 0000 2263+TURTN DC A (*—*) TEST UNIT RETORN ADRS TO MDI 
644+$DVID DC X 
003128 0008 He 1 (0008) : So31e0 190 se eeeSVCAL DC A (DEVADD) ADRS OF DEVICE ADDRESS 
O0g1ao! eee FO004S FOU Son ee 0031C2 0000 2266+ DC *— *) IBIS CYLINDER ADDRESS 
2267+* 
003132 0001 DC AL2 (0001) B+ HIS TEST UNIT WILL RETURN TO MDI WITHOUT DOING ANY PROGRAM 
003134 OO0A DC A (00.10) ; ite FUNCTION. THE RESULTS THAT WERE SET UP IN THE RESULTS AREA’ ARE 
poeta) hae eee ec AE ROG eer a CLO010'MAP7AT0—D 2270+* STILL VALID BUT A DIFFERENT TEST IS TO BE PERFORMED. 
2271+* 
003140 0001 DC AL2 (0001) 2272+T7A02 MVWI X'7A02',$TUID SET UP TEST UNIT ID 
003142 0008 DC x (0008) ORSAcR. SOG 53434 BXS (RT , RETURN TO MDI SUPVR 
003144 D4CID7F7IC1F7F6D2 DC CLOOO8* MAPTAT6K 5595 COPY ComzoU 
00314C FO0083 EQU) * 076 AE OR IO ICO ROI IG III IOI III IIE IE II I IOI I Io 
gee 00 Star ae a ; 
* FOR SUPPORTED SVC'S 
003150 DUCID7FIC1IF7F6E4 DC CLOOO8*MAPTAT6U! 318 ft Peper Aeher Os ie * 
003158 FOO010 FEQU. * 2280 FE ORI IG OE IO IO RG OI I III IG IOI AISI OK i fake i 
003158 0001 DC a iedaoy 000000 93281 OUT EQU 0 OUT SVC 
00315A OOOA DC A ( 10) = ‘ 000001 2282 OUTIN EOU 1 OUTIN SVC 
00315C DUCID7TFICTF7TFO60D DC CLO0O010" MAP7A70-K 000002 2283 IDLE EOU 2 IDLE SVC 
003166 FO0047 EQU * 000003 2284 IDLES EQU 3 IDLE SVC - INDEPENDENT OF CPU TYPE 
003166 9001 Came Ts ca 000004 2285 CHNGE FOU 4 CHANGE LEVEL SVC 
003168 OOO0A DC A (0010) : 000005 2286 PGMCK EQU 5 ALLOW RETURN ON PROGRAM CHECK SVC 
00316A D&CID7FICIF7FO60C ppTe® gg (10010! HAPTATO-B BO eBOE 5587 EXIT EOU 6 FXIT SVC 
ERMINATE SVC 
003174 0000 OPTN1 DC —-X*00008 PROGRAM OPTION CONTROL WORD 1 oocer. oo 5o erence RESET DEVICE SVC 
AD 
003176 0000 OPTN2 DC x*0000! PROGRAM OPTION CONTROL WORD 2 ee 5331 Starr E80 40 START CYCLE STEAL SVC 
van EX PROBLEM PROGRAM CONTROL BITS 00000B 2292 STCSS EQU 11 START CYCLE STEAL STATUS SVC 
000010 B48 EQU 16 P 00000C 2293 PREP EQU 12 PREPARE DEVICE SVC 
000011 Bea scene ke u : * THESE BITS ARE USED WITH THE 00000D 2294 READO EOD 13 READ WITH FUNCTION BIT 3 OFF SVC 
Coole a ae 4 , * SECOND OPTION WD AND ARE TO 00000 2295 READ1 EQU 14 READ WITH FUNCTION BIT 3 ON SVC 
000013 B5 EQU *s eae oma weaen aul oe O0000F 2296 RSTAT EQU 15 READ STATUS SVC 
000014 B52 86EQU 20 a 8 EAS 000010 2297 WRITO FOU 16 WRITE WITH FUNCTION BIT 3 OFF SVC 
000016 Boy eee 8 2 4 : 000011 2298 WRIT1 EQU 17 WRITE WITH FUNCTION BIT 3 ON SVC 
TRL EOU 18 
000017 B35 QU 23 : ! : 000013 5400 Rica =OU 19 RELEASE INTERUPT CONTROL BLOCK SVC 
000019 Bes Bou 30 5 ‘i x 000014 2301 CIcB zQU 20 CONNECT INTERUPT CONTROL BLOCK SVC 
I EOU 
000018 Boo. Seeue “ace 1 e ; 000016 5303 REOSD Bou 32 REQUEST US£ OF DCP DISK SVC 
abt B28 FOU 34 12 : * 000017 2304 RETSD EQU = 23 RELEASE USE OF DCP DISK SVC 
HALT EOQU 
00001D Boy =6EQU 29 a7 : 000019 $308 ETOH HOU 34 EBCDIC TO HEX SUC (STRING) 
OO001E B62 EQU 30 oe Z : OOO01A 5307 HtoR EoU 26 HEX TO EBCDIC SVC (STRING 
00001F Bes: te. et ac CUARECTER SUPDCLER 00001B 2308 ATOH EQU 27 ASCIT TO HEX SVC (STRING 
SO00TE CHP EOU 31 15 1 COMPARE OPERATION 00001C oOe teen: eeu: 28 PHCDIC TG Were Stn en oc 
003178 0000 OPTN3 DC X'00008 PROGRAM OPTION CONTROL WORD 3 Create eee ee FOU 30 ASCII TO, BRCDIC SuC {STRING 
12 READI EQOU 31 
ie S fF eae: 9, 338935 ay Hee UR eR 
ar ee ee 10 CS STATUS INTERRUPT ERR CE 3315 Serer se FOO IO IGRI IGIOIG ICR IGRI I IIR AC GK : 
* 3 INTERRUPT RECEIVED IN 11 ISB BITS ON (1-7) ISBON Sata @ EQUATES USED BY TU'S AS CONSTANTS _ 
18 * 
* 4 EXPECTED ERR/ATTENT XE 12 TEST UNIT RESULTS VOID NG S240 FESO GG OIC IO GRIGIO IC IOI IE IO IO Kok GK 
cf mice | Eee iee§ 0004 $39 Bas bo et BE Can, 
* 7 NO INTR EXPECTED at 15 INTERRUPT CC ERROR INCC 090069 2333 Zeno eOU 
000020 MI EQU 32 0 8 MYSTERY INTERRUPT HAPPENED 000001 ee a 
000021 ER FOU = 33 1 4 ERROR RECEIVED ON INTERRUPT 000002 2325 T 6 
000022 XI EOU 34 2 2 EXPECTED INTERRUPT CONTROL BIT 000003 2326 THREE FOU 3 
000023 IN EQU 35 3 1 INTERRUPT RECEIVED CONTROL BIT 000004 2327 FOUR EQU) 4 
000024 XE EOU 36 4 8 EXPECTED ERROR RESPONSE 000005 2328 FIVE EOQU 5 
000025 HE FOU 37 5 rn HARD ERROR, 8 RETRIES 000006 2329 SIX EQU 6 
000026 $LE EQU 38 6 2 INTERRUPT ON WRONG LEVEL ERROR 000007 2330 SEVEN EQU) J 
000027 NI FOU 39 7 1 NO INTERRUPT EXPECTED E 000008 2331 EIGHT EQU 8 
000038 ots EOU 40 g 8 CYCLE STATUS IN PROGRESS 000009 2332 NINE EQU 9 
000029 CSA EQU 41 9 r CYCLE STEAL AVAILABLE OOOOOA 2333 TEN EFQU) 10 11 
00002A CE EQU 42 10 2 CYCLE STEAL STATUS INERRRUPT ERROR oogete S320 puyyy ty ve 
Mites ie EOu |G 13 8 TEST UNET RESULTS NO GOOD 00000D 2336 THRTN EQU 13 i 
00039 tecc FOU | 45 13 4 OI0 CC ERROR 00000F 2337 FIVTN EQU) 15 15 
000038 NOIN EQU 46 14 2 NO INTERRUPT 000010 ee tae ile 
00002F INCC EQU 47 15 1 INTERRUPT CC ERROR eeOeO 2340 SIXT EO eu | i 
* COMMON BUFFER FOR PRINTING DATA pa 2342 THOSE E90 256 | 256 | 
00317A 0000 $TUID DC A (*-* TEST UNIT IDENTIFICATION aerate 5344 THOK EOU 2048 5048 
BO317E 0000 $ISB. DG | OAt#OS £9, INTR STATUS BYTE 6 DEV ADRS 000C00 5345 THREK EQU 3072 3072 
peaaa eaane Teng a + # ADRS OF LAST I/0 + 4 BYTES 001000 2346 FOURK EQU 4096 aoee 
003182 0000 DEV1 DC A (*- DEVICE DEPEND D FFFFFR 2349 M2 EQU <-2 ~2 
003186 0000 DEVS DE | AQ * FFFFFD 2350 3 EQU 3 =3 
7 2351 M4 FOU = 
003188 0000 DEV4 DC A (*-* CS STATUS ERROR ISB & INTR CC Bey 2353 Fe KERN SES EOE S © We eW NEE NSS OER D OLE LS VERGE as cs COON e OR Ra ee 
003 188 DC BUF EQU me DCB BUFFER FOR LAST DCB USED 5328 % THE FOLLOWING ARE EQUATES FOR BIT DISPLACEMENTS FROM THE * 
ee a Cea ihe? | eee Chet DES PRBES, per ney WORD 2356 * BEGINNING OF THE BYTE TO EACH BIT IN THE WORD OF SWITCHES. * 
v 
00318E 0000 DCB3 DC A a roe Hee eae Dey bap SOEE eee PEE EEE EEE ETT TER LE ET TT Ee ET ME ETE ee Te Eee re Tn PT Tera 
eT ee aimee a at pepe sae a ee LAST DCB TABLE, DEV DEP WORD 000000 2359 BSO EFQU 60 
pee taae coaad i ++ LAST DCB TABLE, CHAIN ADRS 000001 3360 BS1 EOU 1 
BOs1oe. DORG BcET “pe: Race LAST DCB TABLE, BYTE COUNT 000002 336] Bs2 FOG 4 
003198 0000 DCB8 DC Rh k-* LAST DCB TABLE, BUFFER ADDRESS oonooe 2363 su EQU 
000005 2364 BSS EQU 
083128 oo00 €stLi be OA (RX CS STATUS HD 0, RESIDUAL ADDRESS 000006 2365 BS6 EOQU 6 
00319c 0000 CSTL2 DC A (*-* CS STATUS WD 1, RESIDUAL COUNT 000007 2366 eee FOU 7 
00319E 0000 CSTL3 DC Rh (*-* CS STATUS WD 2, RETRY CNT WD 1 000008 
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DIAGNOSTIC DCB = ¥###4aKx 
DC x"2008" DIAGNOSTIC DCB 

DC FLAG / PHYSICAL SECTOR# 
DC HEAD / CYLINDER#'S 

DC 4 000 NOT USED 

DC b(ESER) RSB ADDRESS 

DC CHAINING ADDRESS 

DC ‘010 BYTE COUNT 

DC A ROK) DATA ADDRESS 
RECALIBRATE DCB 242% 

DC X'0001! RECALIBRATE DCB 

DC TA (*¥-*) 

WRITE SECTOR ID ** #44 

DC X'002D! WRITE SECTOR ID CNTL WORD 
DC A (*-* FLAG / PHYSICAL SECTOR# 
DC A (*—* HEAD / CYLINDER#'S 

DC X"000 NOT USED 

DC A(RSBA) RSB ADDRESS 

DC A (#-* CHAIN ADDRESS 

DC X¥"000 BYTE COUNT . 

DC A (WPSID) ADDR OF SECTOR ID DATA 
READ SECTOR ID DCB *k*# #42 

DC X'201C! READ SECTOR ID CNTL WORD 
DC A FLAG / PHYSICAL SECTOR# 
DC X 000 HEAD / CYLINDER#'S 

DC X'00008 NOT USED 

DC A gyn) RSB ADDPESS 

DC A CHAIN ADDRESS 

DC xt 000 BYTE COUNT FOR READ SECTOR ID 
DC A (SCTID) SECTOR ID DATA ADDRESS 
SEEK DCB We IK 3 Kk A Ok ok 

DC x'00008 SEEK DCB CONTROL WORD 
DC X'0000! NOT USED 

DC A (#*) HEAD / CYLINDER#'S 

DC X*00008 NOT USED 

DC A(RSBA) RSB ADDRESS 

DC a (s+) CHAIN ADDRESS 

DC X"O000! NOT USED 

DC X'0000! NOT USED 

CYCLE STEAL STATUS DCB **** 4% 

DC X'20008 CONTROL WORD 

DC F'Qt NOT USED 

DC F'Q! NOT USED 

DC Ftot NOT USED 

DC Fror NOT USED 

DC Ftot NOT USED 

DC X'OO1A! 13 WORDS OF STATUS 

DC A (CSBUF) ADDRESS OF CYCLE STEAL STATUS DATA 
WRITE DCB Me He 2 3K 2K 2K ok 3K ok ok 

DC X'0028" WRITE DATA DCB CNTL WORD 
DC A (*-* FLAG / RECORD# 

DC A (*—* HEAD / CYLIDNER#! 

DC A(*-* SCAN / REPEAT COUNT 

DC A(RSEA) RSB ADDRE 

DC A (4-4) CHAIN RDDRESS 

DC X'01008 BYTE COUNT 

DC A (*-*) WRITE DATA ADDRESS 
VERIFY DCB 9 -*#* #4 

DC x'00198 CONTPOL WORD 

DC A (*-* FLAG / RECORD# 

DC A (*-* HEAD / CYLINDER#!S 

DC A (*—* SCAN / REPEAT COUNT 

DC A (RSBA) RSB ADDRESS 

DC A (*-* CHAIN ADDRESS 

DC A (*-* BYTE COUNT 

DC For NOT USED 

READ DCB He He He IK IK HK 3 

DC X¥'2018° READ DCE CONTROL WORD 
DC A (*-* FLAG / RECORD# 

DC A (*-* HEAD / CYLINDER#'S 

DC A (#-* SCAN / REPEAT COUNT 

DC A(RSBA) RSB ADDRESS 

DC A (*-* CHAIN ADDRESS 

DC X¥*01008 BYTE COUN 

DC A (*-%) READ DATA ADDRESS 

WRITE SECTOR ID SKEWED ***% 

DC X'O02F* CONTROL WORD 

DC A =) FLAG / PHYSICAL SECTOR# 
DC A (*-* HEAD / CYLINDER#'S 
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P/N=8327668 EC=375222 PAGE 11A 
SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
DC F'ot NOT USED 
DC A (RSBA) RSB ADDRESS 
DC A (*-* CHAIN ADDRESS 
DC X*Q0048 BYTE COUNT 
‘ DC A (WRSID) ADDR OF SECTOR ID DATA 
as RFAD SECTOR ID SKEWED *KKK 
RKDCB DC X*201D* CONTROL WORD 
DC A lane FLAG / PHYSICAL SECTOR# 
DC = HEAD / CYLINDER#!S 
DC NOT USED 
DC A (RSBA) RSB_ADDRESS 
DC A (*-* CHAIN ADDRESS 
DC X*OOO4F BYTE COUNT 
Pl DC A (SCTID) SECTOR ID DATA ADDRESS 
oc READ MULTIPLE SECTOR IDS ¥***K 
RMDCB DC X*201C* CONTROL WORD 
DC A (*-* FLAG / PHYSICAL econ ee 
DC A (*-* HEAD / CYLINDER#! 
DC Fo? NOT USED 
DC A (RSBA) RSB ADDRESS 
DC A (*-* CHAIN ADDRESS 
DC X*O084! BYTE COUNT 
‘ DC A (IDO00) DATA AREA ADDRESS 
* CONSTANTS AND DEFINED STORAGE LOCATIONS 
ZEROO DC X*Q000! CONSTANT ZERO 
ONE1 DC X'OQ001' CONSTANT ONE 
RAY DC etree WRITE PARAMETER POINTER 
WDATA DC X*EB6D! WRITE DATA 
DC X*6BDB!* * 
LGSEC DC X*Q000! LOGICAL SECTOR # 
PHYSC DC xX*'0000! CONVERTED PHYSICAL SEC # 
WRSID DC X*Q0O00! FLAG,SECTOR (WRT SECTOR ID DATA) 
DC X'O0O00! HEAD, CYLINDER 
WSIDT DC X'PPF3S4E WPITE SECTOR ID TEST DATA 
DC X*5678! 
SCTST DC X'Q000! READ SECTOR ID TEST DATA BUFFER 
DC X'Q000° 
RSBA_ DC SE pep) RESIDUAL STATUS BLOCK 
CTRO2Z DC Xx*GO00' COUNTER 
CTRO3 DC X'Q000' COUNTER 
IDO0O DC X'*0Q0Q000! ID ADDRESS TO BE SET BY USER 
PDATA DC X'1010° WRITE DIAG WORD 1 DATA PATTERNS 
DC X'5555! * 
DC X'AAAA' * 
™ DC X*FFEF* * 
He Ae He eH He ee He Re A Ae KK KK YG 7 7 EK EH EE KE KK KK EK KE KK EK 
SUBROUTINE 
PURPOSE 


HHH HHH HH HHH HH 


COMPARE READ SECTOR ID DATA TO WRITE SECTOR ID DATA 
CALLING SEQUENCE 

BAL CMPRW,R6 (NORMAL) 
RETURN 

BXS (R6,2) - NORMAL 


Te KK KK IC I IK I a ek ie kok i i ak ak kk kK ak ick kK ick ak kkk ok 


x 
CM PRW 


MVWI COMPARE BYTE COUNT 

MV A sttrD, R3 ADDR OF RD SEC ID DATA 
VA  WRSID,R5 ADDR OF WR SEC ID DATA 

OFNEN 3) (R5) COMPARE ID DATA 

BE 2) BCH IF WRITE ID DATA OK 
MPARE ERROR 


CO 
FE Ne ed a eT EE TE RE EET Lec re EE P eee reT TT TT 


an nD MN & WW NY = 


11 
12 


EXECUTE INPUT & OUTPUT COMMANDS 

TO EXECUTE ALL I/O COMMANDS FROM A COMMON PLACE. 

EACH OF THESE ENTRIES SET R7 WITH THE ADRS OF ITS PARAMETER 
LIST AND ANY SPECIAL SWITCHES BEFORE BRANCHING TO THE 

SUPVR CALL. 

THIS SUBROUTINE WILL CHECK FOR THE FOLLOWING: 


1. LOST INTERRUPTS BY TIMING OUT A COUNTING LOOP 
2. ERROR INTERRUPTS RECEIVED FROM SUPVR 


THIS ROUTINE HAS THE FOLLOWING ENTRIES: 

BAL  $RKEW,R6 READ SECTOR ID SKEWED 
BAL  $WKEW,R6 WRITE SECTOR ID SKEWED 
BAL  $WSEC,R6 WRITE SECTOR ID 

BAL $DIAG,R6 DIAGNOSTIC 

BAL XIOCS,R6 CYCLE STEAL STATUS 
BAL $SEEK,R6 SEEK 

BAL  $RECL,R6 RECALIBRATE 

BAL $RDID,R6 READ SECTOR ID 

BAL  $RD,R6 READ 

BAL  $RDVY,R6 READ VERIFY 

BAL $WRT,R6 WRITE 

BAL  $RDIM,R6 READ MULTI SECTOR IDS 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
2598 * 3276+* 6. WHEN THE SUPVR RETURNS AFTER ISSUING THE I/O COMMAND, TIMING 
2599 KK OKI IO IC ik kg ak kak ak ak kak ak i ak ok ak fe ak ok ok ak 3277+* STARTS TO DETERMINE A LOST INTERRUPT. 
2600 * 3278+* 7. EXCEPT THE INTERRUPT AND GATHER INFORMATION TO DETERMINE IF IT 
0032D6 4020 34EE 320C 2601 $SEEK MVA SKDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 3279+* WAS AN ERROR OR OKAY AND EXIT OFF THE INTERRUPT LEVEL. 
0032DC 507F 2602 J XIO 3280+* 8. CHECK IF THERE WAS A WRONG INTERRUPT LEVEL. 
2603 * 3281+* 9. CHECK IF AN ERROR WAS EXPECTED AND IF THERE WAS RETURN. 
O0S2DE 4020 34EE 31DC 2604 $RECL MVA CLDCB, IODCB SET UP BLOCK FOR SVC CALL 3282+* 10. CHECK IF THERE WAS AN ERROR CONDITION, IF NOT RETURN. 
OO032E4 507B 2605 J XIO 3283+* 11. CHECK TO SEE IF THE EXERCISER IS TO BE TERMINATED. 
2606 * 3284+* 12. CHECK IF A CYCLE STEAL OPERATION WAS IN PROGRESS THAT WAS 
0032EF6 4020 34EE 31FC 2607 $RDID MVA RSDCB, IODCB SET UP BLOCK FOR SVC CALL 3285+* ISSUED BY THIS SUBROUTINE. 
0032EC OBBB 2608 MVBI xX*BBt,R3 SET BUFFER TO BfS 3286+* 13. CHECK THE ISB BITS THAT ARE ON. IF BIT O IS ON, ISSUE A 
OO32EE 4524 3182 2609 MVA SCTID,R5 SETUP READ SECTOR ID BUFFER ADRS 3287+* CYCLE STEAL STATUS COMMAND. CHECK FOR ANY OTHER BIT BEING ON, 
Q0032F2 4724 0004 2610 MVWI 4,R7 SETUP BUFFER LENGTH 3288+* COUNT IT AND SET UP THE PROPER ERROR MESSAGE TO BE PRINTED. 
0032F6 2BAC 2611 FFN R3,(R5) INIT READ SECTOR ID BUFFER 3289+* 
0032F8 4020 320A 3182 2612 MVA SCTID, RSDCB+14 DATA ADDR 3290+* CALLING SEQUENCE 
OO032FE 506E 2613 J XTIO 3291+* 
2614 * 3292+* THIS ROUTINE HAS THE FOLLOWING ENTRIES: 
003300 4020 34EE 327C 2615 S$RDIM MVA RMDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 3293+* 
003306 4724 Q084 2616 MVWI 132 R? SET BUFFER LENGTH 3294+* --> BAL XIO OR XEQ ANY CYCLE STEAL COMMAND, MOD=0 
O00330A 4524 32B6 2617 MVA 1D06,R5 SET BUFFER ADDRESS 3295+* --> BAL XIO1 MOD PARM PRELOADED IN 'Tomob: 
00330E OBBB 2618 MVBI xX'BB!,R3 SET CLEAR CHARACTERS 3296+* --> BAL XIOCS, R6 OR XEQ START CYCLE STEAL STATUS, MOD=F 
003310 2BAC 2619 FFN R3 (R5) CLEAR THE BUFFER 3297+* --> BAL XIOCS-4,R6 AUTO CS STATUS (FOLLOWING OTHER XIO 
003312 5064 aes) “ J X16 es * AND DOES NOT POST INTERRUPT STATUS) 
003314 =OBFF 2622 SRD MVBI X'FF!,R3 SETRD BUFFER TO ALL FS 3300+* RETURN CONTROL 
003316 6D08 325A 2623 MVW RDDCB+14, R5 SET UP READ BUFFER ADRS 3301+* 
00331A 6F08 3258 2624 MVW RDDCB+12,R7 SET UP BUFFER LENGTH 3302+* BXS R6,2) RETURN TO USER NO ERROR 
00331E 2BAC 2625 FFN Bade) CLEAR READ BUFFER 3303+* OR B R6) * RETURN AND RETRY ON ERROR 
003320 4020 34EFE 324C 2626 SRDS MVA RDDCB, LODCB SET UP BLOCK FOR SVC CALL 330 U + ko rok ig RK ok ok I IK kako kk tek ke ge feat ke teak ate ake ate tc ate ak ake ake ae teak ak 
003326 505A 2627 J XIO 0033DC CB25 34F0 3306+xXIO MVWZ IOMOD,R3 SET MOF OF O FOR CYCLE STEAL OP 
2628 * 0033E0 50O0E 3307+ J XIO1 CS I/0'S ARE NOT RETRIED 
003328 4020 34EE 323C 2629 S$RDVY MVA VRDCB,1IODCB SET UP CONTROL BLOCK FOR SVC CALL 3308+* 
00332E 5056 2630 J XIO 0033E2 4020 34F0 OOO0D 3309+XIODG MVWI x'OO0O0OD!,IOMOD SET MODIFIER FOR DIAGNOSTIC OPS 
2631 * O033E8 500A 3310+ J XIO1 GO TO CS OPS 
003330 4020 34EE 322C 2632 $WRT MVA WRDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 3311+%* 
003336 5052 2633 J XIO OO33EA 4CAA 3312+ TBTR R4,CE RESET CS STATUS INTER ERROR INDICAT. 
2634 * ; OO033EC- 4C68 3313+ TBTS R4,cCS SET "CYCLE STEAL STATUS! IN PROGRESS 
003338 4020 34EE 326C 2635 SRKEW MVA RKDCB, TODCB SET UP CONTROL BLOCK FOR SVC CALL OO33EE 4020 34EE 321C 3314+XIOCS MVA speEB ODCB SET UP CONTROL BLOCK FOR SVC CALL 
00333E OBBB 2636 MVBI X'BB!,R3 SET BUFFER TO B'S 0033F4 4020 34F0 OOOF 3315+ AVL X'O000F*', TOMOD SET CYCLE STEAL MODIFIER 
003340 4524 3182 2637 MVA SCTID,R5 SETUP READ SECTOR ID BUFFER ADRS OO0O33FA 4C28 3316+ TBT see CS) IS CS IN PROGRESS, ERROR CONDITION 
003344 4724 0004 2638 MVWI R7 SETUP BUFFER LENGTH 0033FC 1213 3317+ JON T02 * YES, BYPASS SAVING I7O ADRS 
003348 2BAC 2639 FFN R3 sh} INIT READ SECTOR ID BUFFER OO33FE 6E0D 3180 3318+XIO1 MVW R6,LSTIO SAVE TAR FOR RETRY IF REQUESTED 
O0O334A 4020 327A 3182 2640 MVA SCT D,RKDCB+14 DATA ADDR 003402 4324 318A 3319+ MVA DCBUF, R3 SET UP TO ADRS TO MOVE DCB TABLE 
003350 5045 2641 J XIO 003406 6D08 34EE 3320+ MVW IODCB,RS5S * AND THE FROM ADRS, ALONG WITH 
2642 * OO340A OFTA 3321+ MVBI 26,R7 * THE NUMBER OF MOVES 
003352 4020 34EE 325C 2643 S$WKEW MVA WKDCE, IODCB SET UP CONTROL BLOCK FOR SVC CALL O0340C 2D64 3322+ MVFN SR) $83) MOVE 1 STATUS WORD AND ADJUST 
003358 4020 326A 329A 2644 MVA WRSID,WKDCR+14 DATA ADDR OO34O0E OBFF 3323+ MVBI 55 f CLEAP CYCLE STATUS BUFFER 
00335E 503E 2645 J XIO 003410 4524 319A 3324+ MVA CSBUF,RS * TO ALL ONES * 
2646 * 003414 OFTA 3325+ MVBI 26, * 
003360 4020 34EE 31EC 2647 $WSEC MVA WSDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 003416 2BAC 3326+ FFN R3 422) * 
003366 4020 31FA 329A 2648 MVA WRSID, WSDCBt+14 DATA ADDR 003418 4020 317C 0708 3327+ MVWI x16 08!, SIOIN OVERLAY OLD CONDITION CODES 
00336C 5037 eee : J XIO 003418B CB25 317E Sa5ce MVWZ $ISB,R3 ZERO OUT OLD ISB VALUE 
+ 
00336E 4020 34EE 31CC 2651 $S$DIAG MVA DGDCB, IODCR SET UP CONTROL BLOCK FOR SVC CALL 003422 4CA1 3330+ TBIR R4,ER RESET ANY ERROR BEFORE I/0 COMMAND 
003374 5033 2652 J XIO 003424 4CA3 3331+XIO2 TBTR R4Y,IN CLEAR INTERRUPT RECEIVED CNTL BIT 
2653 * 003426 4724 34EA 3332+ MVA OBLK 7 SET UP CONTROL BLOCK FOR SUPVR 
003376 6E0D 3180 2654 SWRTO MVW R6,LSTIO SAVE IAR FOR RETRY IF REQUESTED OO0O342A 4CAG6B 3333+ TETR R4, $LE) RESET LEVEL ERROR INDICATOR 
0O0337A OBFF 2655 MVBI 255 R3 CLEAR CYCLE STATUS BUFFER 00342C 4C62 3334+ TBTS R4,XT) SFT EXPECTED INTR CONTROL BIT 
00337C 4524 319A 2656 MVA CSBUF,R * 7T0 ALL ONES * OO342E 600A 3335+ SVC TART CALL SUPVR FOR I/O COMMAND 
003380 OF16 2657 MVBI 22,R7 * 3336+%* 
003382 2BAC 2658 FFN R3 fB>}, * 003430 4CA7 3337+ TBTR R4, NI) IS AN INTR EXPECTED 
003384 4524 318A 2659 MVA pcB F,R5 CLEAR DCB BUFFER TO ALL ONES 003432 6ACO 0002 3338+ BN R6, 2) * NO, RETURN TO USER 
003388 OF10 2660 MVBI 16,R7 * 3339+%* 
00338A 2BAC 2661 FFN R3 4R2) * 3340+% THE INTR SHOULD OCCUR WHILE SPINNING IN THE NEXT SECTION 
00338C 4020 317C 0708 2662 MVWI x6 08',SI0OIN OVERLAY OLD CONDITION CODES 33414+* 
003392 CB25 317E 2663 MVWZ S$ISB,R3 ZERO OUT OLD ISB VALUE 003436 4524 0000 3342+ MVWI 0O,R5 SET UP WORK REG FOR 'LOST INTR* 
003396 4CA3 2664 TBTR R4, IN CLEAR INTERRUPT RECEIVED CNTL BIT OO343A 4CA3B 3343+XI0O8 TBTR (Ba IN) HAS INTERRUPT BEEN RECEIVED 
003398 4CATl 2665 TBTR R4Y,ER RESET ANY ERROR BEFORE I/O COMMAND 00343C 1239 3344+ JON Tock * YES, CHECK IF ALL WAS SATISFACTORY 
00339A 4C62 2666 TBTS R4,XI SET EXPECTED INTR CONTROL BIT O00343E 6002 3345+ SVC IDLE ALLOW ANOTHER PROGRAM A CHANCE TO RUN 
00339C 4724 34EA 2667 MVA oBLK, 7 SET UP CONTROL BLK FOR SUPR 3346+* SUPVR WILL RETURN HERE 
0033A0 C020 34F1 2668 MVB ITOMOD+1,R0 GET IDCBR FUNC/MODIFIER 003440 6002 3347+ SVC IDLE ALLOW ANOTHER PROGRAM A CHANCE TO RUN 
0033A4 402D 34F0 OOFO 2669 RBTWI X'OOFO!',IOMOD : REMOVE FUNCTION FROM tIOMOD! 3348+* SUPVR WILL RETURN HERE 
Q0033AA 3022 2670 SRL 4 ,RO RIGHT JUSTIFY FUNCTION BITS IN RO 003442 7DA1 0001 3349+ AWIL 1,R5 ADVANCE TIME OUT COUNT 
O033AC FOO05 2671 CBI 5,R0 IDCB FUNCTION = 5? 003446 18F9 3350+ JINZ XI08 BCH IF TIME OUT NOT REACHED 
OO33AE 1003 2672 JE $WRT1 YES - ISSUE 'SVC WRIT1! 003448 4cC61 3351+ TBTS R4, ER) SET ON ERROR CONTROL BIT 
0033B0 6010 2673 SVC WRITO ISSUE WRITE DPC "4X! OP OO344A 68D2 0000 3352+ B Ro{ * ERR ‘NO INTERRUPT! 
0033B2 6802 3436 2674 B XIO8—-4 GO WAIT FOR THE INTERRUPT 335 U 42 KK OK KO RR ORR io KR gto K fok ao ik ok ok OKO BF ERB] 6** 
0033B6 6011 2675 SWRT1 SVC WRIT! ISSUE WRITE DPC '5X*t OP 3355+* 
0033B8 6802 3436 2618 x B XIO8-4 GO WAIT FOR THE INTERRUPT S32 os SUBROUTINE 
+ 
0033BC 4020 34EE 322C 2678 SDGWR MVA WRDCB, IODCB SET UP CONTROL BLK FOR SVC CALL 3358+* I/O EXECUTE ERROR HANDLING ROUTINE 
0033C2 6802 33E2 2679 B XIODG TSSUE START CS DIAG CMD 3359+* 
2680 * 3360+* PURPOSE 
0033C6 4020 34EE 324C 2681 $SDGRD MVA RDDCB, IODCB SET UP CONTROL BLK FOR SVC CALL 3361+* 
0033CC 6F08 3258 2682 MVW RDDCB+12, R7 GET NO. OF BYTES TO CLEAR 3362+* THIS ROUTINE WILL COLLECT INFORMATION TO HELP DETERMINE THE 
0033D0 6D08 325A 2683 MVW RDDCB+14, R5 ADDR OF READ BUFFER 3363+* PROBLEM THAT WAS FOUND WHEN THE I/O COMMAND WAS ISSUED BY THE 
0033D4 OBFF 2684 MVBI X*FF!,R3 CLEAR TO F*fS 3364+%* SUPERVISOR AND IT WAS NOT ACCEPTED. 
0033D6 2BAC 2685 FFN R3 (R5) * 3365+* 
0033D8 6802 33E2 2686 B X16 G ISSUE START CS DIAG CMD 3366+* CALLING SEQUENCE 
2688 COPY TV7AXEQ OOMART8 3367+* 
ee aeeyee OFF eaec. SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/O COMMAND 
+ 
EEE EET LE LOE EE Ee TE ORT rE er mT re ee ETE here rT rm 3370+* RETURN CONTROL 
3255+* 3371+* 
ooo SUB-ROUTINE aaa B (R6) * RETURN TO USERS ERROR HANDLER 
+ + 
s3D0tS EXECUTE INPUT AND OUTPUT COMMANDS 3370 + #3 OO RK oo IK dak OR OK OR I Kio IOI RIOR Ik RR aK loki kk ag kota acak ok 
259+* 3375+* 
3260+* PURPOSE 3376+* CC O= DEVICE NOT ATTACHED 
3261+* 3377+* FOR 1= DEVICE BUSY 
3262+* TO EXECUTE ALL I/O COMMANDS FPOM A COMMON PLACE. 3378+* I/0 2= DEVICE BUSY AFTER RESET 
3263+* THIS SUBROUTINE WILL DO THE FOLLOWING FUNCTIONS: 3379+* 3= COMMAND REJECT 
3264+* 3380+* Y= INTERVENTION REQUIRED 
3265+* 1. SAVE THE ADDRESS THAT POINTS TO THE INSTRUCTION THAT STARTED 3381+* 5= INTERFACE DATA CHECK 
3266+* THE I/O COMMAND. 3382+* 6= CONTROLLER BUSY 
3267+* 2. SAVES THE DCB BLOCK USED UNLESS IT IS A START CYCLE STATUS 3383+* 7= I/O COMMAND EXCEPTED 
3268+* ISSUED BY THIS SUBROUTINE. 3384+* 
3269+* 3. CLEAR OUT THE CYCLE STEAL STATUS STORAGE UNLESS THE OO344E TO6E 3385+XIOER CPLSR R3 COPY STATUS ANY LEVEL INTO R3 
3270+* START CYCLE STATUS WAS ISSUED BY THIS SUBROUTINE. 003450 336A 3386+ SRL 13,83 POSITION CC CODE TO BITS 13-15 
3271+* 4. RESETS THE INTERRUPT INDICATOR AND CHECKS FOR ANY INTERRUPT 003452 C328 317C 3387+ MVB R3,S5101IN * PUT IN LOG OUT AREA 
3272+* SINCE THE LAST EXPECTED INTERRUPT. IF AN INTERRUPT IS FOUND, 003456 68D2 0000 3388+ B (R6 * RETURN TO USER ERROR HANDLER 
3273+* MYSTERY INTERRUPT (MI) CONTROL BIT IS SET. 3390 4% % + + OK RI RIOR OR I i loi kk tok iigok tok tok iototatak ak tokok 1 A DPR 7 6% 
3274 +* 5. MOVES THE ADDRESS OF THE I/O CONTROL BLOCK IN R7, SET THE 3391+* : TI 
3275+* EXPECTED INTERRUPT CONTROL BIT AND ISSUE THE isv& START. 3392+* SUB-ROUTINE IL 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYPIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
3393+* IL 0034nN8 C520 3175 3509+XIOCQ MVB $ISB,R5 GET LAST ISB DATA BYTE AND IF CS 
3394+4* ERROR INTERRUPT RUNS ON INTERRUPT LEVEL '$INTL! IL 0034DC 6A00 33EA 3510+ BN xroc§-4 * AVAILABLE, GO AND GET IT 
3395+ L 0034FO 68D2 0000 3511+ B (RO) + ERROR 
3396+* PURPOSE IL 0034E4 CB25 3178 3512+XIOCX MVHZ OPTN3,R3 CLEAR OUT OPTION 3 CNTL BITS 
3397+ IL 0034E8 5601 3513+ BXS (R6, 2) RETURN TO USER VIA REG 6 
3398+* THIS ROUTINE WILL BE ENTERED WHEN THE SUPVR DETECTS AN ERROR IL 35144+* 
3399+ OR THE INTERRUPTING CONDITION CODE DOES NOT AGREE WITH THE TL 3515+* I/O PARAMETER LIST 
3400+* EXPECTED CODE. TL 3516+* 
3401+% IL OO0O34EA 19D0 3517+IOBLK DC A (DEVADD) ADRS OF DEVICE ADRS 
3402+* CALLING SEQUENCE IL OO34EC 344E 3518+ DC A (XIOER) ERROR ROUTINE ADRS 
340 34+%* IL OO34EE 0000 3519+IODCB DC A (*-* DCB ADRS OR LEVEL §& INTR 
3404+ SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/O INTERRUPT TL 0034FO 0000 3520+IOMOD DC A (*- * MODIFIER 
3405+* TL 0034F2 0000 3521+ Dc A (*-* ADRS OF LAST SVC CALL 
aces? RETURN CONTROL TT 0034F4 0000 3222+ TORSP DC A (*-* SECOND WORD OF LAST IDCB 
+ IL + 
ances SVC EXIT RETURN TO USER VIA SUPVR IL Sees INTERRUPT CONTROL BLOCK FOR I/O COMMANDS 
+ 
EL Pee ee eee eee eee er EE er re Tee a TTT rer mee Perry err rr OO34F6 19D0 3526+ INTBL DC A (DEVADD) ADRS OF DEVICE ADRS 
3411+ Ti 0034F8 3478 3527+ DC A (INTOK INTERRUPT OK RETURN ADRS 
3412+* CC 0O= CONTROLLER END ISB O= ADD STATUS IL OO34FA 345A 3528+ DC A (INTER INTERRUPT ERROR ADRS 
3413+* FOR 1= PROGRAM CONTROL INTERRUPT BITS 1= COMD REJECT IL OO034FC 0003 35294INTCC Dc X*0003! INTERRUPT CODE EXPECTED 
3414+4+* INTR = EXCEPTION INTERRUPT FOR 2= INCOR LENGTH IL BO 3 4 RRR KH HK I HK a eK a 2 ok 2 kK ie kkk ok kok ok ke kok ek a ke kok ok ok tok ok ] IM AY 7A% & 
3415+%* = DEVICE END INTERRUPT INTR 3= DCB SPEC CK IL 3532+* 
3416+* = ATTENTION INTERRUPT 4= STG DATA CK IL 3533+* SUBROUTINE 
34174+* 5= ATTENTION / PROGRAM CNTL INTR 5= INV STG ADRS IL 3534+ 
3418+* 6= ATTENTION / EXCEPTION INTR 6= PROTRCT CK IL 3535+* CONNECT INTERRUPT CONTROL BLOCK & PREPARE DEVICE 
3419+ 7= ATTENTION / DEVICE END INTR 7= I-FACE DATA IL 3536+* 
3420+* IL 3537+* PURPOSE 
00345A 7068 3421+INTER CPLSR R3 COPY STATUS ANY LEVEL INTO R3 E 3538+ 
00345Cc 336A 3422+ SRL 13,83 POSITION INDICATORS IN R3 IL 3539+* TO CONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND 
00345E 4424 3174 3423+ MVA OPfN1,R4 SET UP BASE ADRS L 3540+* PREPARE ON THE DESIRED INTERRUPT LEVEL AND TO ALLOW THE DEVICE 
003462 4cC28 3420+ TBT (Ra c§) IS CS IN PROGRESS Th 35414+* TO INTERRUPT. 
003464 1006 3425+ JOFF INTES * NO Te 3542+* 
003466 4C6A 3426+ TBTS (R4,CE TURN ON CYCLE STEAL INTER ERROR IL 3543+* CALLING SEQUENCE 
003468 6FOD 3188 3427+ MVW R7,DEV SAVE CS ERR ISB VALUE, BITS 0-7 IL 35444+% 
00346C C328 3189 3428+ MVB R3,DEV4+1 * AND THE COND CODE Ti 3545+* THIS SUBROUTINE HAS THE FOLLOWING ENTRIFS: 
003470 500A 3429+ J INTR1 IL 3546+* 
003472 4c24 3430+INTES TBT (Ra XE) TEST EXPECTED ATTEN / ERROR IND lie 3547+* --> BAL SCONC, R6 CLEAR DEV DEP STG AND CONNECT 1/0 BLK 
003474 1002 3431+ JOFF NTET ECH IF NOT EXPECTED IL 3548+* --> BAL SCONP, R6 PREPARE DEVICE ONLY, ALREADY CONNECT 
003476 F304 3432+ CBI 4,R3 IS THIS AN "ATTENTION! INTR IL 3549+ 
003478 1006 3433+ JE INTR1 * YES, BCH TO END INTR SEQUENCE IL 3550+* RETURN CONTROL 
OO347A 4C61 3434+INTET TBTS (RA ER) SET FRROR ON I/O COMMAND CNTL BIT IL 35514+* 
00347cC 5004 3435+ J NTR1 IL 35524+%* BxS (R6 2) RETURN TO USER VIA REG 6 IF OKAY 
3436+* THE ERROR INTERRUPT USES THE SAME IL 3553+* OR B R6f * IF THE DEVICE COULD NOT BE CONNECTED 
3437+* ENDING SEQUENCE AS THE NORMAL INTR IL 3554+ 
BUD eR HM HH Ke HK eK HK KK OK He KK Ke ke i I KK Feo ok a He KKK aK KK RK KKK TU APRTOIL 3555 RR HH A HK KK KK 2 eK 2 ic af ee a a 2 he a oe eae 2 2c 2 2 ic oc a i ote oe a ok oie ak ok ok ok ok ok ok 
3440+* IL OO34FE OFOE6 3556+$CONC MVBI 6,R7 NUMBER OF BYTE TO CLEAR 
3441+* SOUBROUTINE IL 003500 0OBO00 3557+ MVBI 0O,R3 * AND THE DATA TO USE 
3442+* TL 003502 4524 3182 3558+ MVA DEV1,RS * ALONG WITH THE ADRS TO USE 
3443+ OKAY INTERRUPT RUNS ON INTERRUPT LEVEL '$INTL! IL 003506 2BAC 3559+ FFN R3 (85) * 
3444+ TL 003508 CB25 3178 3560+ MVWZ OPTN3,R3 CLEAR OLD CONTROLS FOR NEW ROUTINE 
3445+* PURPOSE TL 00350C 4724 34F6 3561+ MVA INTBL,R7 SET R7 TO CONTROL BLOCK AND 
3446+% IL 003510 6014 3562+ Svc CICB * CONNECT IT TO THIS DEVICE 
ee TO CHECK THE INTERRUPT AND CONTINUE THE TEST IL 003512 6ADO 0000 er BN (R6) * ERROR RETURN TO USER 
+ 
3449+* CALLING SEQUENCE IL 003516 8828 31BA 34UEE 3565+$CONP MVW SINTL, LODCB PUT IN LEVEL & INTR PARAMETER 
34u50+* TL 00351cC 4724 34EA 3566+ MVA IOBLK,R7 SET R7 TO CONTROL BLOCK TO PREPARE 
3451+* SUPERVISOR WILL ENTER HERE IF INTR CC IS AS REQUESTED IL 003520 4020 317cC 0708 3567+ MVWI xX'0708',$IOIN INITIALIZE CONDITION CODE STORAGE 
3452+* THE ERROR INTERRUPT HANDLER WILL BRANCH TO THIS ROUTINE IL 003526 CB25 317E 3568+ MVWZ $ISB,R3 * AND CLEAR OLD ISB VALUE 
3453+% AFTER THE SPECIAL PART HAS BEEN COMPLETED AND THE Tt 00352A 6E0D 3180 3569+ MVW R6,LST1O SET UP ADDRESS THAT STARTED LAST 1/0 
3454+ COMMON SECTION IS HANDLED HERE. IL 00352E 600C 3570+ SVC PREP * AND CALL ON SUPVR 
3455+* IL 003530 5601 3571+ BXS (R6, 2) RETURN TO USER 
3456+* RETURN CONTROL IL BOTS EET OEE CH EO Rete SETA SE AL ERA CRSA T TREE AT SS ACP SPESISERTST ESSE ER SOOR ONT OTS 
3457+* IL 3574+ 
eee SVC EXIT RETURN TO USER VIA SUPVR TL SEE Ee SUBROUTINE 
+ IL 
34 60 + #7 RE OK IOC OI ICO io i tok tok gtk tok eT 7 3577+* DISCONNECT THE INTERRUPT CONTROL BLOCK AND LOG ERRORS 
00347E T706E 3461+INTOK CPLSR R3 COPY STATUS ANY LEVEL INTO R3 IL 3578+ 
003480 336A 3462+ SRL 13,R3 POSITION INDICATORS IN R3 IL 3579+* PURPOSE 
003482 4424 3174 3463+ MVA OPTN1, R4 SET UP BASE ADRS 71 3580+* 
003486 4C63 34U644INTR1 TBTS RU,Ih SET INTERRUPT RECEIVED IL 3581+* DISCONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND 
003488 4C28 3465+ TBT R4,CS IS 'CS IN PROGRESS! ON TL 3582+* SET THE 'NO GOOD' CONTROL BIT, THEN LOG THE DATA THAT HAS 
OO348A 1204 3466+ JON NTRI * YES, BCH AROUND UPDATE IL 3583+* BEEN FOUND TO HELP THE OPERATOR DEFINE THE ERROR CONDITION. 
00348C C328 317D 3467+ MVB R3,SIOIN+1 SAVE INTERRUPTING CC CODE TL 3584+ 
003490 6FOD 317E 3468+ MVW R7,$1SB SAVE INTR STATUS AND DEV ADRS TL 3585+* CALLING SEQUENCE 
003494 34694INTR2 EQU TL 3586+* 
3470+% CPCL RS CURRENT LEVEL COPIED BY DCP TL 3587+* THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: 
003494 3521 3471+ SLL 4,R5 POSITION INTR LEVEL AND PUT TL 3588+ 
003496 0501 34724 ABI 1_.R5 * IN "It BIT IL 3589+* --> B SERRS SET "NG' BIT AND CONVERT DATA TO LOG 
003498 CD24 31BA 3473+ CW $SENTL,RS IS THIS THE CORRECT INTR LEVEL IL 3590+* --> B S$CONX RETURN TO MDI SUPERVISOR TO TEST STS 
00349c 1002 3474+ JE INTR3 * YES, GO EXIT THIS LEVEL TL 3591+* 
00349E 4&4C66 3475+ TBTS R4, $LE) SET IfffR LEVEL ERROR CONTROL BIT IL 3592+* RETURN CONTROL 
0O34A0 4C61 3476+ TBTS R4,ER SET ERROR ON I/O COMMAND CNTL BIT IL 3593+* 
OO34A2 4CA2 3477+INTR3 TBR R4,XI WAS INTERRUPT EXPECTED TL 3594+* B TURTN* RETURN TO MDI 
OO34A4 1204 3478+ JON NTRX * YES, EXIT OFF THIS INTR LEVEL IL 3595+* OR B (R6) * IF THE DEVICE COULD NOT BE CONNECTED 
0034A6 4C60 3479+ TBTS gee MI) * NO, SET MYSTERY INTR CONTROL BIT IL 3596+* 
O034A8 F304 3480+ CBI R3 ATTENTION INTERRUPT? IL 3597 + BK KK eK eK RK KK ok kok i i ok kk kk kkk aK lok i ak ike ie tok te ak teak ak ato goat kak akc ake ak ok ot ofc ok 
OO34AA 1001 3481+ JE TATRX YES TL 003532 4020 1818 8000 3598+$ERRS MVWI X'* 8000! ,TUSTATUS SET ON "NO GOOD! STATUS BIT 
OO34AC 4CE6C 3482+ TBTS gRe NG) FRROR,UNEXPECTED INTERRUPT IL 003538 4724 3702 3599+ MVA HEBLK,R/ GET ADRS OF CONTROL BLOCK 
OO34AE 6006 3483+INTRX SVC XI EXIT fHIS LEVEL VIA SUPVR TO PGM IL 00353C 601A 3600+ SVC : HTOE CONVERT HEX TO EBC VIS DCP 
348543 ROO IO IO a iia kok doko 0 3 FEB] 6 # 00353E 4020 188E 4040 3601+ MVWI X*'4O40', TUWORK+116 
3486+* 003544 4020 1890 4040 3602+ MVWI X*4O40!', TUWORK+118 
3487+* THIS IS THE CONTINUATION OF EXECUTE I/0 AFTER THE INTERRUPT 0O0354A 4020 1892 4040 3603+ MVWI X*4O40*, TUWORK+120 
3488+* HAS BEEN SERVICED. THE EXERCISER FINDS AN INTERRUPT HAS BEEN 003550 ODO4 3604+$PRNT MVBI 4,R5 
3489+* RECEIVED AND BRANCHES HERE TO CHECK FOR ANY ERROR CONDITIONS. 003552 4324 181A 3605+ MVA TOWORK, R3 SET UP BUFFER STORAGE 
3490+% 003556 6B0D 36FA 3606+ MVW R3,BUFDT 
3491+* 00355A 4124 35D6 ' 3607+ MVA LINE1,R1 
0034B0 4CAY4 3492+XIOCK TBTR R4, XE) WAS AN ERROR EXPECTED 00355E OFOY4 3608+ MVBI 4,R7 
0034B2 6ACO 0002 3493+ BN RO, 2) * YES, EXIT THIS ROUTINE 003560 O£F08 3609+ MVBI 8,R6 
0034B6 4CA8 3494+ TBTR R4,CS) WAS AUTO CS IN PROGRESS 003562 2B24 3610+MVBUF MVFN (83). (1) 
0034B8 1006 3495+ JOFF IOCV * NO, CONTINUE CHECKING 003564 OFOY 3611+ MVBI cB 
OO34BA 4C2A 3496+ TBT (Ra CE) ts c&§ IN AN ERR CONDITION 003566 OA4O 3612+ MVBI xX'4Ot,R2 
0034BC 1002 3497+ JOFF XIoco * NO. BCH 003568 C258 3613+ MVB = R2 (Bi + 
0034BE 68D2 0000 3498+ B R6) * cs ERROR 00356A BEFB 3614+ JCT MVBUF,R6 
0034C2 4c69 3499+XIOCO TBTS R4Y,CSA) TURN ON CS STATS AVAIL FLAG 00356C 0808 3615+ MVBI 8,R6 
0034C4 5601 3500+ BXS R6, 2 GO TO USER 00356E 7921 002C 3616+ AWI 44 R1 
0034C6 4C21 3501+XIOCV TBT R4, ER) WAS ERROR INTR CONTROL BIT ON 003572 BDF7 3617+ JCT MVBUF,RS 
0034C8 100D 3502+ JOFF Tocx * NO, EXIT THIS ROUTINE 003574 4020 1802 FIFO 3618+ MVWI PIDMS610, PID+t2 
3503+ 00357A 4020 19B8 3700 3619+ MVA  FAKETU,@DCADD1 
0034CA C520 317D 35044 MVB $IOIN+1,R5 GET LAST INTR CC CODE 003580 4020 19BA 36FC 3620+ MVA DC2PT, @DCADD2 
O0O34CE F502 3505+ CBI 2,R5 IS THIS cCC=2 003586 402C 19C4 0080 3621+ Owl BIT0080, SUPSTAT 
0034D0 1003 3506+ JE xfoco YES 00358C 4324 317A 3622+ MVA $TUID, R3 SET UP BUFFER STORAGE 
0034D2 F506 3507+ CBI IS THIS CC=6 003590 6F13 18BA 3623+ BAL TUMSGNTR*, R7 GO TO MESSAGE WRITER 
0034D4 68D1 0000 3508+ BNE (R6) * * NO, BCH TO ERROR HANDLER 3624+* 
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TSB 


DCB2 


CS-2 


CS-A 


DATA CONTROL BLOCK FOR 


STMT SOURCE STATEMENT 
625+ $CONX EQU * 
6264 MVB DEVADD,R7 
627+ SVC RICB 
628+ B TURTN* 
6294+* 
630+BEGIN DC A (0009 
6314 DC A (0008 
632+ DC C'** ABORT! 
633+ DC A (0040) 
634+ DC C'TUID IOIN 
635+ DC A (0040) 
636+LINE1 DC Cc! 
637+ DC A (0040) 
638+ DC C'CNTL DCB1 
639+ DC A (0040) 
640+LINE2 DC ct 
41+ DC A (0040) 
42+ DC C'CS-0 CS-1 
34+ DC A (0040) 
G+LINE3 DC ce 
5+ DC A (0040) 
6+ DC C'cS-8 CS-9 
+ DC A (0040) 
+LINE4 DC ct 
+ 
+BUFPT DC A (44) 
+DC2PT DC A (BEGIN) 
+FIXTU DC X°0101' 
+FAKETU DC X*0101° 
+PIDMSG10 EQU  X'*F1FO! 
+BITO080 EQU x'0080' 
+ 
+* 
+H 
+ 
+ 


HHH HHHHHHHHHHKRH HH HHH HH HE 


AHHH HH HK 


7A10 
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INST 


DCB3 


Cs-3 


CS-B 


CONV 


TO MOVE THE ERROR HALT CODE 
TO THE TU RESULTS BUFFER (TORESU 


MDI=$TUXX,T7A10,01,0708, EQ 


TURESUL BIT (S) 


MVW 
MVD 
MVD 


B 


MVW 
MVWI 
VA 
BAL 
DC 


MVD 
MVB 
TXIT 
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END 


0-7 
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NWO WUT 


CONIA ES WA) ad 
CNS NONLEAD 
I 
ONNIA UW WN = 


CALLING SEQUENCE 


TUWCR 


K, TURESUL 
TUWORK+6, TURESUL 
K+160,TURESU 


TUWOR 


RETURN CONTROL 


TURTN* 


TURTN 


eweoeee@ 


R7 
X'7410' ,STUID 
OPTN1, R4 


$CONC, R6 
A (SERR$) 


eee 


MUO CEE one cour ce 


TUWORK+1 


es lURESUL+t5 
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GET DEVICE ADDRESS FROM MDI 
RELEASE INTERRUPT CONTROL BLOCK 
RETURN TO MDI SUPERVISOR 
NUMBER OF LINES TO PRINT 
LINE LENGTH = 8 CHAR 

LINF LENGTH = 4O CHAR 

SECT ID DATA CSCC ! 

LINE LENGTH = 40 CHAR 

LINE LENGTH = 4O CHAR 

DCB4 CHAD BYCT ADRS ! 

LINE LENGTH = 40 CHAR 

LINE LENGTH = 40 CHAR 

CS-4& CS-5 CS-6 CS-7 ! 

LINE LENGTH = 4O CHAR 

LINE LENGTH = 40 CHAR 

C5-C ' 

LINE LENGTH = 40 CHAR 


ERTING HEX TO EBCDIC 


EBLK DC A eh NUMBER OF BYTES TO CONVERT 
DC A($TUID FROM ADRS 
DC A (TUWORK) AND THE TO ADRS 
COPY T7A10 23JAN78 
7A10 TUIT 
AIC ICI IO IO IG I CORO GO tok aa ik dak tok tok 06 PEBT 6* * 
TEST UNIT 
ERROR HALT CODE/DIAG SENSE BYTE CHECK 
PURPOSE 


ESUL) BYTE, AND DIAG BYTES 1,2 3 


ERROR HALT CODE 


STATUS aoa BYTE 
SINGLE SHOT BYTE 1 (5-HURSLEY 
SINGLE SHOT BYTE 2 (6-HURSLEY 
SINGLE SHOT BYTE 3 (7-HURSLEY 
NOT USED 

MULTISAMPLE BYTE 1 (S-HURSLEY 
MULTISAMPLE BYTE 2 (6-HURSLEY 
MUOLTISAMPLE BYTE 3 (7-HURSLEY 
WRAP BYTE 

MOVE ERROR HALT CODE & STATUS BYTES 
SINGLE SHOT BYTES 1, 2, AND 3 
MULTISAMPLE BYTES 1, 2, AND 3 
AND WRAP BYTE 


RETURN TO MDI SUPERVISOR 


AIG I RR I a OR OR lok io iittala I kk ato kak fc ai ofc ok akc ofc ok ic ae ok 


SAVE RETURN ADDRESS 
SAVE TU ID FOR DISPLAY 
SET UP POINTER ADRS IN R4& 


CLEAR DEV DEP STG AND CONNECT I/0 BL 


ERROR ADRS FOR INVALID PREP 


MOVE ERROR WORDS 4,5 
MOVE WRAP CHECK RESULTS 


RETURN TO MDI CONTROLLER 


B SCONX 
7a AR to a I RR I IC IC IORI I IG RKO IO a Hak a ak ak ok ak i aca ak 
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DECLARED 
3556 
3625 
3598 
2262 
2227 
2228 
22 12 
2226 
2675 

102 
103 
39 


45 


3630 
3655 
3650 
2216 
2301 
2398 
2214 
2215 
2245 
2436 
2239 
3651 
105 
2230 
2233 
2387 
67 
2094 
2207 
2287 
3653 
2161 
2133 


2149 
2165 
2137 
2113 
2145 


2125 
2129 
2153 
2141 
2117 


FRU ISOLATION MAP 


NAME 

$C ONC 
SCONX 
SERRS 
SINTL 
SIOIN 
$ISB 
$LE 
$TUID 
SWRT1 
@DCADD1 
@DCADD2 
@FIXT 


@TUXX 


BEGIN 
BITO080 
BUFPT 
CE 
CICB 
CLDCB 
CS 

CSA 
CSBUF 
CSDCB 
DCBUF 
DC2PT 
DEVADD 
DEV1 
DEVY 
DGDCB 
DUMMY 
ENTPT 
ER 
EXIT 
FAKETU 
F00010 
F00033 


FOO0O45 
FO00047 
F00052 
FO0075 
F00076 


FO00077 
F00078 
F00079 
FO00080 
F00081 
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CROSS+REFERENCE LISTING 


ATTRIBUTES AND REFERENCES 
ADDRESS. HEX LOCATION (000034FE) IN 
aADDRESS. HEX LOCATION (00003594) IN 
ADDRESS. HEX LOCATION (00003532) IN 
ADDRESS. HEX LOCATION(000031BA) IN 
ADDRESS. HEX LOCATION (0000317¢) IN 
2662 3327 3387 3467 3504 3567 

ADDRESS. HEX LOCATION(0000317E) IN 
2663 3328 3468 35 6 

ABSOLUTE. HEX VALUE (00000026) 

3333 3475 

ADDRESS. HEX LOCATION (0000317A) IN 

272 3622 3660 3700 

ADDRESS. HEX LOCATION (000033B6) IN 

ADDRESS. HEX LOCATION (00001958) IN 
gDDRESS. HEX LOCATION (000019BA) IN 

ABSOLUTE. HEX VALUE (00009101) 

855 930 933 936 987 990 
1014 1065 1068 1071 1110 1113 
1185 1188 1215 1230 1233 1236 
1284 1287 1302 1305 1332 1335 
1407 1422 1437 1440 1479 1482 
1578 1581 1584 1611 1614 1617 
1677 1680 1707 1710 1713 1764 
1836 1839 1842 1845 1896 1911 
1935 1974 1977 1980 1983 2034 
2058 2085 2088 2091 

ABSOLUTE. HEX VALUE (90009500) 

831 843 858 870 882 894 

951 963 975 996 1017 1029 
1086 1098 1122 1134 1146 1158 
1218 1245 1257 1269 1290 1308 
1368 1380 1392 1410 1425 1443 
1503. 1515 1527 1539 1551 1566 
1632 1653 1665 1683 1695 1716 
1770 1782 1794 1806 1824 1848 
1899 1914 1938 1950 1962 1986 
2037 2061 2073 
hDDRESS. HEX LOCATION (0000359E) IN 
ghBSOLUTE. HEX VALUE (00000080) 
ADDRESS. HEX LOCATION (000036FA) IN 

ABSOLUTE. HEX VALUE (0000002A) 

3312 3426 3496 
ghBSOLUTE. HEX VALUE (00000014) 
aRRDRESS. HEX LOCATION (000031DC) IN 

ABSOLUTE. HEX VALUE (00090028) 

3313 3316 3424 3465 3494 
gngSOLUTE. HEX VALUE (00000029) 

ADDRESS. HEX LOCATION (0000319A) IN 
2443 2656 3324 
ADDRESS. HEX LOCATION (0000321C) IN 

ADDRESS. HEX LOCATION (0000318A) IN 
2659 3319 
gADRRESS. HEX LOCATION (000036FC) IN 

ADDRESS. HEX LOCATION (000019D0) IN 
2265 3517 3526 3626 

ADDRESS. HEX LOCATION (00003182) IN 
2234 3558 

ADDRESS. HEX LOCATION (00003188) IN 
3427 3428 
,ADDRESS. HEX LOCATION (000031CC) IN 

ABSOLUTE. HEX VALUE (00000000) 

822 2093 2105 

ADDRESS. HEX LOCATION (000030BC) IN 

ABSOLUTE. HEX VALUE (00000021) 

2665 3330 3351 3434 3476 © 3501 
ghBSOLUTE. HEX VALUE (00000006) 
ADDRESS. HEX LOCATION (00003700) IN 

ADDRESS. HEX LOCATION (00003158) IN 
1708 1714 

ADDRESS. HEX LOCATION (000030FE) IN 

991 1012 1117 1171. 1189 1237 
1582. 1615 2089 

ADDRESS. HEX LOCATION (00003132) IN 
1111. 1336 1618 1681 1897 

ADDRESS. HEX LOCATION (00003166) IN 
1933 1984 

ADDRESS. HEX LOCATION(0000310C) IN 

994 1009 1216 1231. 1240 1819 

ADDRESS. HEX LOCATION (000030C2) IN 

ADDRESS. HEX LOCATION (00003126) IN 
1069 1120 1282 1423 ° 1438 1483 
1843 1912 1930 1936 2050 2056 

ADDRESS. HEX LOCATION (00003056) IN 

937 1288 1303 1333 

ADDRESS. HEX LOCATION (000030F2) IN 

988 1114 1306 1846 2092 

ADDRESS. HEX LOCATION (00003140) IN 
1480 1489 

ADDRESS. HEX LOCATION(0000311A) IN 

066 1186 1234 

ADDRESS. HEX LOCATION(000030CE) IN 


CSECT (I7A25 
CSECT (I7A25 
CSECT (I7A25 
CSECT(I7A25 
CSECT (I7A25 
CSECT (I7A25 


CSECT (I7A25 
CSECT(I7A25 
CSECT(I7A25 
CSECT (I7A25 


993 1008 
1116 ©1119 
1239 1242 
1350 1353 
1485 1488 
1644 1647 
1767 1818 
1926 1929 
2049 2052 

906 918 
1041 1053 
1173-1191 
1320 1338 
1455 1467 - 
1587 1599 
1728 1740 
1860 1872 
1998 2010 
CSECT(I7A25 


CSECT (I7A25 
CSECT (I7A25 


CSECT (I7A25 
CSECT(I7A25 
CSECT (I7A25 
CSECT(I7A25 
CSECT(I7A25 
CSECT (I7A25 
CSECT (I7A25 
CSECT(I7A25 


CSECT (I7A25 


CSECT (I7A25 
CSECT (I7A25 


CSECT(I7A25 
1285 1405 


CSECT (I7A25 
CSECT(I7A25 
CSECT(I7A25 
1837. 1975 
CSECT (I7A25 
7A25 
765 
086 
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CSECT(I7A25 
CSECT (I7A25 
CSECT (I7A25 
CSECT (I7A25 
CSECT (17A25 
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LENGTH (2) 
LENGTH (1) 
LENGTH (6) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 


LENGTH (2) 
LENGTH (2) 
LENGTH (1) 
LENGTH (1) 


LENGTH (2) 


LENGTH (2) 


LENGTH (2) 


LENGTH (1) 
LENGTH (2) 
LENGTH (1) 
LENGTH (2) 
LENGTH (1) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 


LENGTH (1) 


LENGTH (2) 
LENGTH (1) 
LENGTH (1) 


LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 


LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 


LER 23: = S> 


DECLARED 


2121 


2157 
3659 
2307 
2283 
2528 
2209 
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3434 
3461 
3483 
3464 
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3477 
3517 
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1008 
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1029 
1041 
1053 
1065 
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FO00082 


FO00083 
HEB LK 
HTOE 
IDLE 
IDOO 
IN 
INTBL 
INTER 
INTES 
INTET 
INTOK 
INTRX 
INTR1 
INTR2 
INTR3 
IOBLK 
IODCB 


IOMOD 
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LINE1 
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MVBUF 
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NO00003 
NO0004 
NO0005 
NO0006 
NO0007 
N00008 
NO0009 
N00010 
N00011 
N00012 
N00013 
NOOO14 
NO0015 
NO00 16 
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RESS. HEX 
RESS. HEX 
18 


RESS. HEX 
3617 
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DRESS. HEX 
104 
RESS. HEX 
RESS. HEX 
RESS. HEX 
844 
RESS. HEX 
RESS. HEX 
RESS. HEX 
RESS. HEX 
RESS. HEX 
RESS. HEX 
RESS. HEX 
919 
RESS._ HEX 
907 
HEX 
RESS. HEX 
HEX 
HEX 
ADDRESS. HEX 

363 
ADDRESS. HEX 
36 76 
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ART (00002500) 
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CROSS-REFERENCE LISTING 


ATTRIBUTES AND REFERENCES 


.~ HEX VALUE(0000001A) 
HEX VALUE (00000002) 


LOCATION (00003286) 


EX VALUE (00000023) 
3343 3464 


LOCATION (000034 F6) 
LOCATION (0000345a) 
LOCATION (00003472) 
LOCATION (00003478) 
LOCATION (0000347E) 
LOCATION (000034AE) 


EX LOCATION (00003486) 
435 


LOCATION (00003494) 
LOCATION (000034A2) 


nee LOCATION (O00034EA) 


66 
LOCATION (OOO034EE 
07 2615 2 2 
78 26 1 
LOCATI 0 
06 33 1 


MWR 


6 
3 
0 
3 


OZ md 
WOWN 


ON (0 
0 


LOCATION (000035D6) 


_ LEQCATION (00003180) 
OLUTE. HEX VALUE (00000020) 


LOCATION (00003562) 


OLUTE. HEX VALUE (0000002C) 
SOLUTE. HEX VALUE(00000027) 


LOCATION (000027A8) 
LOCATION (000027BC) 
LOCATION (000027CE) 
LOCATION (000027D2) 
LOCATION (000027EA) 
LOCATION (00002802) 
LOCATION (0000281A) 
LOCATION (00002832) 
LOCATION (00002848) 
LOCATION (00002862) 
LOCATION (00002866) 
LOCATION (0000286A) 
LOCATION (00002868) 
LOCATION (00002886) 
LOCATION (0000289E) 
LOCATION (000028B6) 
LOCATION (000028CE) 
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